c========================================================================
      subroutine testsub10(ii,aa,nn)
      use Module1
      integer(4):: ii,nn
      real(8):: aa(1:nn,3)
      i = ii**4
      a = aa(1,1)**4
      return
      end
c========================================================================
